<script>on mouseUpshow bg field "Help"play "harpsichord" "c6"end mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>28</top>
<right>57</right>
<bottom>45</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New</name>
<script>on mouseUpplay "harpsichord" "d"if the optionKey is down thenlock screenif short name of this card is "AddressIndex" thenanswer "Address Note テテεォSテ雨テ [テ栄テï」ソテァテ古ィテコテツオテ窶ケテ竏妥③" with "Yes" or "No"if it is "Yes" thengo to nextrepeat foreverif short name of this card is "SupportIndex" then exit repeatdoMenu "Delete Card"end repeatgo to cd "AddressIndex"send mouseUp to bg btn "Sort"end ifelseanswer "テツアテテε雨テ [テ栄テï」ソテァテ古ィテコテツオテ窶ケテ竏妥③" with "Yes" or "No"if it is "Yes" thendoMenu "Delete Card"if short name of this card is "SupportIndex" then go to cd "AddressIndex"end ifend ifunlock screen with visual effect shrink to centerelseanswer "テェVテ」Kテ雨テ [テ栄テï」ソテァテ湘テ凝窶ケテ竏妥③" with "Yes" or "No"if it is "Yes" thendoMenu "New Card"put "New" into bg field "Number"end ifend ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>53</top>
<right>58</right>
<bottom>71</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>on mouseUpglobal BgANlock screenplay "harpsichord" "e"put (number of cards of this bkgnd)-1 into BgANif the optionKey is not down then--テ①"NetID"Indexテテεァテ湘ェツィrepeat with Var=1 to 5put line Var of value of bg button "NetID" into NetNsort cards of bkgnd "AddressBG" by bg field NetNput empty into indexVarrepeat for BgANset the cursor to busygo to nextif word 1 of bg field NetN is not empty then put line 1 of bg field NetN & "," & bg field "Name" & return after IndexVarend repeatgo to cd "AddressIndex"put indexVar into cd field NetNend repeatend if--テ①"NameIndex"テテεァテ湘ェツィsort cards of bkgnd "AddressBG" by bg field "テテ甘窶コテ邃「テツサ"put empty into indexVarput number of this card into CNrepeat for BgANset the cursor to busygo to nextput (number of this card)-CN && "/" && BgAN into bg field "Number"put bg field "Name" after IndexVarif word 1 of bg field "Tel" is not empty thenput " テ⑴Tel:" & bg field "Tel" after IndexVarelseif word 1 of bg field "Fax" is not empty thenput " テ⑴Fax:" & bg field "Fax" after IndexVarend ifend ifif word 1 of bg field "BirthDay" is not empty thenput " テ⑴" && bg field "BirthDay" after IndexVarend ifput return after IndexVarend repeatgo to card "AddressIndex"put indexVar into card field "nameIndex"put "0 / " & BgAN into bg field "Number"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>79</top>
<right>58</right>
<bottom>97</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mark</name>
<script>on mouseStillDownglobal BgANif the optionKey is down thenlock screenanswer "Mark テï」ソテ竏妥笳甘ニ津「ï」ソティテコテツオテ窶ケテ竏妥③" with "Yes" or "No"if it is "Yes" thengo to cd "AddressIndex"repeat for BgANset the cursor to busygo to nextput empty into bg field "Mark"unmark this cardend repeatgo to cd "AddressIndex"end ifelseif short name of this card is "AddressIndex" thenplay "harpsichord" "c6"elseif the value of bg field "Mark" is "Mark" thenput empty into bg field "Mark"unmark this cardelseput "Mark" into bg field "Mark"mark this cardend ifplay "flute" "c5s"end ifwait 30end ifend mouseStillDown</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>115</top>
<right>58</right>
<bottom>147</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>32670</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>テ・テシテァトア</name>
<script>on mouseUpglobal SF,BgANset lockMessages to trueanswer "テ液テ院テ韻テ嘉」ティoテウテ陛窶ケテホゥテテ陛・テシテァトアテ邃「テ「ツャテョ¥テ竕暗竏妥③" with "ティoテウテ" or "テ・テシテァトア"if it is "ティoテウテ" thenif short name of this card is "AddressIndex" thenanswer "テツォテテクテテテテオndexテï」ソCVSテ液テ院テ韻テ嘉」ティoテウテ陛ツオテ窶ケテ竏妥ツゥテ⑨" with "Name" or "NetID" or "Cancel"if it is "No" then exit mouseUpif it is "Name" thenput "Name,Telephone,Birthday" & return into addFput cd field "NameIndex" into TEXTrepeat for BgANset cursor to busylock screengo to nextput quote & bg field "Name" & quote & comma & quote & bg field "Tel" & quote &ツャcomma & quote & bg field "BirthDay" & quote & return after addFend repeatgo to cd "AddressIndex"put "NameIndex" into FNelseput "NetID,Handle" & return into addFrepeat with N=2 to 6put short name of cd field N & return after addFput cd field N into TEXTrepeat with M=1 to (number of lines of TEXT)set cursor to busyput quote & item 1 of line M of TEXT & quote & comma & quote & item 2 of line M of TEXT & quote & return after addFend repeatend repeatput "NetIDIndex" into FNend ifopen file FNwrite addF to file FNclose file FNelseanswer "テャdテゥqテ嘉 テ [テ嘉」テ液テ羽テ [テ厭テ叡テ曳テテεィoテウテ陛邃「テ「ツャテョ¥テ竕暗竏妥③" with "NIFTY-Serve" or "E-mail" or "Cancel"if it is "Cancel" then exit mouseUpput char 1 of it into Mailput char 1 to 8 of word 1 of bg field "NIFTY-Serve" into NIFput word 1 of bg field "InterNet" into INTput offset("テ⑿",INT)-1 into Nif N > 0 then put char 1 to N of INT into INTput offset("(",INT)-1 into Nif N > 0 then put char 1 to N of INT into INTput char 1 to 8 of word 1 of bg field "PC-VAN" into PCVput word 1 of bg field "Fax" into FaxNif offset("(",FaxN) >0 then put char 1 to (offset("(",FaxN)-1) of FaxN into FaxNif offset("/",FaxN) >0 then put char 1 to (offset("/",FaxN)-1) of FaxN into FaxNput "テォテ、テゥテ凝ェテ甘テεォテウテェMテ陰テ栄テ嘉・テ厩テï」ソテャoテイ^テ窶 テテ凝テεュテ愿ツゥテテテォIテォï」ソテツオテニ津竕 テテヲテ竕・テツ「テ③テ⑿テョ窶佚ァテ+returnテ鵜テ [テ⒀" & return & "テ①1:NIFTY-Serveテ①テャoテイ^" into TEXTif NIF is empty then put "テツサテツオ" after TEXTelse put "テ窶 テテ凝①テ⑿" & NIF & "テ⒀" after TEXTput return & "テ①2:InterNetテ①テ①テ①テャoテイ^" after TEXTif INT is empty then put "テツサテツオ" after TEXTelse put "テ窶 テテ凝①テ⑿" & INT & "テ⒀" after TEXTput return & "テ①3:PC-VAN テ①テ①テ①テャoテイ^" after TEXTif PCV is empty then put "テツサテツオ" after TEXTelse put "テ窶 テテ凝①テ⑿" & PCV & "テ⒀" after TEXTif Mail is "N" thenput return & "テ①4:Faxテョ窶佚ァテ テ①テ①テ①テャoテイ^" after TEXTif FaxN is empty then put "テツサテツオ" after TEXTelse put "テ窶 テテ凝①テ⑿" & FaxN & "テ⒀" after TEXTend ifrepeat foreverask TEXTif it is empty thenexit mouseUpend ifput it into Nput (offset("テャo",line N+1 of TEXT)+2) into Mif char M of line N+1 of TEXT is "テ窶 " thenif Mail is "E" and N=4 then next repeatexit repeatend ifend repeatput "file:" & bg field "Name" & return into TEXTif Mail is "N" thenif N=1 then put "to:" & NIF after TEXTif N=2 then put "to:INET:" & INT after TEXTif N=3 then put "to:PCV>" & PCV after TEXTif N=4 then put "to:F" & FaxN & comma & bg field "Name" & "テウl" after TEXTput return & "sub:" after TEXTelseif N=1 then put "to:" & NIF & "@niftyserve.co.jp" after TEXTif N=2 then put "to:" & INT after TEXTif N=3 then put "to:" & PCV & "@pcvan.co.jp" after TEXTput return & "Cc:" & return & "Bcc:" & return & "subject:" after TEXTend ifif cd field "Handle" in cd "Shurey" is not empty thenput "from" && cd field "Handle" in cd "Shurey" after TEXTelseif cd field "Name" in cd "Autobiography1" is not empty thenput "from" && cd field "Name" in cd "Autobiography1" after TEXTend ifend ifif Mail is "E" then put return & "Fcc: Mail/posted.mail" & return after TEXTif Mail is "N" then put return & "cc:" & return & return & "/post" & return after TEXTpush cardgo to cd "MailEdit"put TEXT into cd field "TEXT"end ifelseask "テ yテ・テシテァトアテ zテォナ津ィ竄ャテ竏テツサテテ暗ッ竏づゥテカテウテ津ï」ソテャツクテウテ陛ツオテニ津竕 テテヲテ竕・テツ「テ③" with SFif it is empty then exit mouseUpput it into SFanswer "テ u" & SF & "テ vテï」ソテ・テシテァトアテツオテ窶ケテ竏妥③" & return & "テ・テシテァトアテッヒ堙ア@テï」ソテォIテォï」ソテツオテニ津竕 テテヲテ竕・テツ「テ③" with "テ、テテォSテ テ催ュv" or "テッテョテッ邃「テ テ催ュv"if it is "テ、テテォSテ テ催ュv" then put "find word" && quote & SF & quote into Msgelse put "find string" && quote & SF & quote into Msgsend returnKey to HyperCarddoMenu "Message"end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>160</top>
<right>60</right>
<bottom>182</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Exit</name>
<script>on mouseUpplay "harpsichord" tempo 500 "c e g"answer "Address Noteテï」ソティIテウマ\テツオテニ津窶。テテ甘テ偲ツオテツ「テ竕暗竏妥ツゥ ?" with "Menu" or "Quit" or "Cancel"if it is "Menu" thenvisual effect shrink to centergo to card "MenuIndex"end ifif it is "Quit" thendoMenu "Quit HyperCard"end ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>39</left>
<top>205</top>
<right>84</right>
<bottom>227</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Index</name>
<script>on mouseUpplay "harpsichord" "c"visual effect shrink to centergo to card "AddressIndex"end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>205</top>
<right>35</right>
<bottom>228</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20001</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseStillDownvisual effect scroll right fastif short name of this card is "AddressIndex" thenlock screenif the optionKey is Down thengo to cd "SupportIndex"go to prev marked cardelsego to last card in this Bkgndend ifunlock screen with visual effect scroll right fastelseif the optionKey is Down thengo to prev marked cardelsego to prevend ifend ifend mouseStillDown</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>88</left>
<top>205</top>
<right>111</right>
<bottom>229</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20003</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseStillDownvisual effect scroll left fastif the optionKey is Down thenif short name of next marked card is "SupportIndex" thengo to first card of this bkgndelsego to next marked cardend ifelseif short name of next card is "SupportIndex" thengo to first card of this bkgndelsego to nextend ifend ifend mouseStillDown</script>
<script>on mouseUplock screenif short name of this card is "AddressIndex" thenhide cd field "Original"hide cd field "Network-ID"hide cd field "InterNet"hide cd field "PC-VAN"show cd field (value of selectedLine of me)end ifhide bg field "Original"hide bg field "Network-ID"hide bg field "InterNet"hide bg field "PC-VAN"show bg field (value of selectedLine of me)end mouseUp</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>329</left>
<top>39</top>
<right>414</right>
<bottom>57</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Apple Chancery</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>BirthDay</name>
<script>on closeFieldif number of chars of me > 7 then put CvDate(FindDate(CvItem(me),"C")) into meend closeField</script>
<script>on mouseUpask "テ曳テ [テ嘉ャテェMテァテ愿ï」ソテョ竕 テェ竏づツオテ窶ケテ竏妥③" & return & "テ ツサテ「竏ォテテεョ窶佚ァテ愿竕暗テ甘テ偲ツオテツ「テ竕暗竏妥ツゥテ⑨" with bg field "Tel"if if is empty then exit mouseUpdial it --with modem "AT&M5¥N3¥J0¥Q2"--dial bg field "Tel"end mouseUp</script>
<script>on openBackgroundhide bg field "Help"end openBackgroundon closeBackgroundglobal BgANput (number of cards of this bkgnd)-1 into BgANend closeBackground</script>